home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day08 / btmain.dfm / btmain.txt
Encoding:
Text File  |  1998-02-08  |  8.3 KB  |  238 lines

  1. object MainForm: TMainForm
  2.   Left = 202
  3.   Top = 116
  4.   Width = 435
  5.   Height = 246
  6.   Caption = 'Button Test Program'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object Bevel1: TBevel
  14.     Left = 0
  15.     Top = 89
  16.     Width = 427
  17.     Height = 2
  18.     Align = alTop
  19.   end
  20.   object ShowButtons: TButton
  21.     Left = 49
  22.     Top = 119
  23.     Width = 131
  24.     Height = 25
  25.     Caption = 'Show &Buttons Form'
  26.     TabOrder = 0
  27.     OnClick = ShowButtonsClick
  28.   end
  29.   object ShowBitBtns: TBitBtn
  30.     Left = 241
  31.     Top = 119
  32.     Width = 137
  33.     Height = 25
  34.     Caption = 'Show Bi&tBtns Form'
  35.     TabOrder = 1
  36.     OnClick = ShowButtonsClick
  37.     Glyph.Data = {
  38.       76010000424D7601000000000000760000002800000020000000100000000100
  39.       04000000000000010000130B0000130B00000000000000000000000000000000
  40.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  41.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  42.       333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  43.       300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  44.       330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  45.       333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  46.       339977FF777777773377000BFB03333333337773FF733333333F333000333333
  47.       3300333777333333337733333333333333003333333333333377333333333333
  48.       333333333333333333FF33333333333330003333333333333777333333333333
  49.       3000333333333333377733333333333333333333333333333333}
  50.     NumGlyphs = 2
  51.   end
  52.   object Panel1: TPanel
  53.     Left = 0
  54.     Top = 178
  55.     Width = 427
  56.     Height = 41
  57.     Align = alBottom
  58.     BevelOuter = bvLowered
  59.     TabOrder = 2
  60.     object Label: TLabel
  61.       Left = 16
  62.       Top = 9
  63.       Width = 396
  64.       Height = 24
  65.       AutoSize = False
  66.       Caption = 'Result: N/A'
  67.       Font.Color = clWindowText
  68.       Font.Height = -19
  69.       Font.Name = 'MS Sans Serif'
  70.       Font.Style = []
  71.       ParentFont = False
  72.     end
  73.   end
  74.   object Panel2: TPanel
  75.     Left = 0
  76.     Top = 0
  77.     Width = 427
  78.     Height = 89
  79.     Align = alTop
  80.     BevelOuter = bvNone
  81.     TabOrder = 3
  82.     object BtnsSpeedBtn: TSpeedButton
  83.       Left = 48
  84.       Top = 28
  85.       Width = 25
  86.       Height = 25
  87.       Hint = 'Show Buttons|'
  88.       Glyph.Data = {
  89.         78010000424D7801000000000000760000002800000020000000100000000100
  90.         04000000000000000000120B0000120B00000000000000000000000000000000
  91.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  92.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
  93.         0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
  94.         00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
  95.         00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
  96.         F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
  97.         F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
  98.         FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
  99.         0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
  100.         00337777FFFF77FF7733EEEE00000000033377777777777773330000}
  101.       NumGlyphs = 2
  102.       ParentShowHint = False
  103.       ShowHint = True
  104.       OnClick = ShowButtonsClick
  105.     end
  106.     object BitBtnsSpeedBtn: TSpeedButton
  107.       Left = 73
  108.       Top = 28
  109.       Width = 25
  110.       Height = 25
  111.       Hint = 'Show BitBtns'
  112.       Glyph.Data = {
  113.         76010000424D7601000000000000760000002800000020000000100000000100
  114.         04000000000000010000130B0000130B00000000000000000000000000000000
  115.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  116.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  117.         333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  118.         300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  119.         330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  120.         333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  121.         339977FF777777773377000BFB03333333337773FF733333333F333000333333
  122.         3300333777333333337733333333333333003333333333333377333333333333
  123.         333333333333333333FF33333333333330003333333333333777333333333333
  124.         3000333333333333377733333333333333333333333333333333}
  125.       NumGlyphs = 2
  126.       ParentShowHint = False
  127.       ShowHint = True
  128.       OnClick = ShowButtonsClick
  129.     end
  130.     object DrawMode: TSpeedButton
  131.       Left = 232
  132.       Top = 28
  133.       Width = 25
  134.       Height = 25
  135.       Hint = 'Draw Mode'
  136.       GroupIndex = 1
  137.       Down = True
  138.       Glyph.Data = {
  139.         78010000424D7801000000000000760000002800000020000000100000000100
  140.         04000000000000000000120B0000120B00000000000000000000000000000000
  141.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  142.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
  143.         57705557757777775FF7555555555555000755555555555F777F555555555550
  144.         87075555555555F7577F5555555555088805555555555F755F75555555555033
  145.         805555555555F755F75555555555033B05555555555F755F75555555555033B0
  146.         5555555555F755F75555555555033B05555555555F755F75555555555033B055
  147.         55555555F755F75555555555033B05555555555F755F75555555555033B05555
  148.         555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
  149.         5555F777F7555555555501900555555555557777755555555555099055555555
  150.         55557777555555555555500555555555555557755555555555550000}
  151.       NumGlyphs = 2
  152.       ParentShowHint = False
  153.       ShowHint = True
  154.       OnClick = DrawModeClick
  155.     end
  156.     object PaintMode: TSpeedButton
  157.       Left = 257
  158.       Top = 28
  159.       Width = 25
  160.       Height = 25
  161.       Hint = 'Paint Mode'
  162.       GroupIndex = 1
  163.       Glyph.Data = {
  164.         78010000424D7801000000000000760000002800000020000000100000000100
  165.         04000000000000000000120B0000120B00000000000000000000000000000000
  166.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  167.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00559999999995
  168.         5555557777777775F5555559999999505555555777777757FFF5555555555550
  169.         0955555555555FF7775F55555555995501955555555577557F75555555555555
  170.         01995555555555557F5755555555555501905555555555557F57555555555555
  171.         0F905555555555557FF75555555555500005555555555557777555555555550F
  172.         F05555555555557F57F5555555555008F05555555555F775F755555555570000
  173.         05555555555775577555555555700007555555555F755F775555555570000755
  174.         55555555775F77555555555700075555555555F75F7755555555570007555555
  175.         5555577F775555555555000755555555555577775555555555550000}
  176.       NumGlyphs = 2
  177.       ParentShowHint = False
  178.       ShowHint = True
  179.       OnClick = DrawModeClick
  180.     end
  181.     object EraseMode: TSpeedButton
  182.       Left = 282
  183.       Top = 28
  184.       Width = 25
  185.       Height = 25
  186.       Hint = 'Erase Mode'
  187.       GroupIndex = 1
  188.       Glyph.Data = {
  189.         78010000424D7801000000000000760000002800000020000000100000000100
  190.         04000000000000000000120B0000120B00000000000000000000000000000000
  191.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  192.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  193.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  194.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  195.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  196.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  197.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  198.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  199.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  200.         05555777775555557F55550005555555055555777555555575550000}
  201.       NumGlyphs = 2
  202.       ParentShowHint = False
  203.       ShowHint = True
  204.       OnClick = DrawModeClick
  205.     end
  206.     object Label1: TLabel
  207.       Left = 208
  208.       Top = 4
  209.       Width = 114
  210.       Height = 13
  211.       Caption = 'Grouped Speed Buttons'
  212.     end
  213.     object Label2: TLabel
  214.       Left = 16
  215.       Top = 4
  216.       Width = 110
  217.       Height = 13
  218.       Caption = 'Regular Speed Buttons'
  219.     end
  220.     object ModeLabel: TLabel
  221.       Left = 216
  222.       Top = 68
  223.       Width = 88
  224.       Height = 13
  225.       Caption = 'Mode: Draw Mode'
  226.     end
  227.   end
  228.   object AllowAllUpBox: TCheckBox
  229.     Left = 320
  230.     Top = 32
  231.     Width = 97
  232.     Height = 17
  233.     Caption = 'Allow All Up'
  234.     TabOrder = 4
  235.     OnClick = AllowAllUpBoxClick
  236.   end
  237. end
  238.